1 Public Class FrmCATEGORY_ITEM_PRINT
2
3     Private Sub cmdprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprint.Click
4         Dim Report As New FrmREPORTS
5         
'MsgBox(ActiveMdiChild.Name)
6         If rbtall.Checked Then
7             Rpt_SqlStr =
"SELECT * FROM TBL_Category_Item_File ORDER BY Item_Name"
8         Else
9             Rpt_SqlStr =
"SELECT * FROM TBL_Category_Item_File WHERE Catg_ID =" & FrmCatITEMList.lstCategory.FocusedItem.Text & " ORDER BY Item_Name"
10         End If
11         Audit_Trail(xUser_ID, TimeOfDay,
"Print Report - Category Item List ")
12         Report.Show()
13         
'FrmREPORTS.Show()
14         Me.Close()
15     End Sub
16
17     Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
18         Me.Close()
19     End Sub
20
21     Private Sub rbtselected_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtselected.CheckedChanged
22
23     End Sub
24 End Class


Gõ tìm kiếm nhanh...